101 REM "[199][206][196] 1/20/90 ONE SAT. MORN.
102 [143] "(null)EAD AND PRINT .WDS PRG SID FILES.
103 REM "[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]
104 [153]"LOAD"
105 [134]A$(144)
106 [141]192  
107 [141]118  
108 [141]172   :[143] READ FILE
109 [153]:[153]"ATNWAITNOTHER FILE : (null)WAITEW DISK : VALWAITXIT "
110 [129]X[178]1[164]500:[130]
111 [161] Z1$: [139] Z1$[178]"" [167]111 
112 [139] Z1$[178]"A" [167]A$[178]"": [141]122  :[137]108 
113 [139] Z1$[178]"N" [167]106 
114 [139] Z1$[178]"E" [167]116 
115 [137]111 
116 [153]"(null)O (null)ONG, PARTNER."
117 [128]
118 [143] READ DIR
119 SP$[178]"               "
120 [143] READ DIR INTO ARRAY + DISPLAY
121 [141]134 :[143] DIR.READ
122 [153] C2$ "LOAD        .(null)STR$(null) (null)EADER ... (null)RINTER       "
123 [153]"     USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR   "
124 [153]"  [+-]= PAGE           [UP,DN]= SCROLL"
125 NUM[178]9 : [143] # OF FILES TO DISPL.
126 BEG[178]1
127 FC[178]BEG
128 [153] ""
129 [141]150   : [143] PRINT DIR TO SCRN
130 [141]157   : [143] PAGE TURN
131 [139] A$[178]"Q" [167] [142]
132 [139]A$[178][199](13)[167] [142]
133 [137]129   
134 [143] DIR. READ
135 [153]"LOAD           (null)RINT (null)ORDS TO (null)RIGHT$STR$(null)        "
136 [153]"   USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR"
137 [153]"     (null)LEASE (null)AIT:(null)EARCHING STR$IRECTORY  "
138 [143]  GOSUB1100 :REM OPEN [231] CHANNEL
139 [143] OPEN DIRECTORY
140 MF[178]0
141 [159] 1,8,0,"$0"
142 [143]
143 [129]I[178]0[164]30:[161]#1,A$:[130]
144 [161]#1,A$:[139] ST [167] [160]1:[160]15:[142]
145 [139] A$[179][177][199](34)[167]144  
146 MF[178]MF[170]1 :[153]""MF:[143] COUNT # OF FILES
147 [161]#1,A$:[139]A$[179][177][199](34)[167] A$(MF)[178]A$(MF)[170]A$:[137]147  
148 [139][201](A$(MF),4)[179][177]".WDS"[167] A$(MF)[178]"":MF[178]MF[171]1
149 [137]144 
150 [143] LOOP DISPLAY
151 [153]"" : EN[178]BEG[170]NUM
152 [129] X[178]BEG [164] EN
153 [139] FC[178]X [167] [153] [163]13)""A$(X)[200](SP$,16[171][195](A$(X))):[137]155   
154 [153] [163]13)A$(X)[200](SP$,16[171][195](A$(X)))
155 [130]
156 [142]
157 [143] PAGE TURN
158 [161] A$: [139] A$[178]"" [167]158   
159 [139]A$[178]"Q"[167] Q[178]1:[142]
160 [139]A$[178][199](13)[167] [142]
161 [139]A$[178]"-"[167] BEG[178]BEG[171]NUM
162 [139]A$[178]"+"[167] BEG[178]BEG[170]NUM
163 [139] BEG[177]MF[171]NUM [167] BEG[178]MF[171]NUM
164 [139] BEG[179]1 [167] BEG[178]1
165 [143] ENTRY [237]R
166 [139] A$[178]"ON" [167] FC[178]FC[171]1
167 [139] A$[178]"" [167] FC[178]FC[170]1
168 [139] FC[177]MF [167] FC[178]MF
169 [139] FC[177]BEG[170]NUM [167] FC[178]BEG[170]NUM
170 [139] FC[179]BEG [167] FC[178]BEG
171 [142]
172 [143] READ FILE + PRINT
173 [153]"LOAD    (null)URN ON PRINTER AND PRESS A KEY     WAIT"
174 [153]"(null)EADY TO PRINT "A$(FC)"WAIT"
175 [153]"(null)WAIT TO QUIT"
176 [153]"----------------------------------------"
177 [161]A$:[139]A$ [178] "" [167]177  
178 [139]A$[178]"Q"[167] [142]
179 [160]4:[159] 4,4
180 [143] PRINT#4,CHR$(17)
181 [159] 1,8,2,"0:"[170]A$(FC)[170]",P,R"
182 [161]#1,A$:[139]ST[167][160]1:[142]
183 [141]189  
184 [139]Q[167]Q[178]0:[160]1:[160]4:[142]
185 A$[178][199]([198](A$)[175]127)
186 [153]A$;
187 [152]4,A$;
188 [137]182 
189 [161] Z$
190 [139]Z$[178]"Q"[167] Q[178]1
191 [142]
192 [143] INTRO
193 [153][199](14)
194 C2$[178]"CONT"
195 [151]53281,1 :[151]53280,1 :[151]646,[198](C2$)
196 [153]"LOADUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR";
197 [153]"  (null)HIS WILL PRINT THE WORDS THAT"
198 [153]"ACCOMPANY (null)RIGHT$STR$ FILES."
199 [153]
200 [153]"(null)OW YOU CAN SEE ALL THE WORDS AT ONCE!"
201 [153]
202 [153]"(null)EAD AT YOUR LEISURE OR SING ALONG"
203 [153]"WITH SID OR RADIO!"
204 [153]
205 [153]"USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR"
206 [153]"RIGHT$NSERT DISK WITH .WDS FILES "
207 [153]
208 [153]"AND TOUCH A KEY..."
209 [161] Z$: [139] Z$[178]"" [167]209  
210 [142]